3 POKE53281,0:POKE53280,0
4 POKE32767,13:POKE53275,0:POKE53269,0
5 POKE56578,PEEK(56578)OR3:POKE56576,(PEEK(56576)AND252)OR3
10 POKE53272,21:POKE648,4:POKE55,0:POKE56,160:POKE51,0:POKE52,160
15 POKE53265,11:GOSUB500:POKE53265,27
20 SYS57812"MR.MOUSE 2+ 1000",DV:POKE780,0:POKE781,0:POKE782,16:SYS65493
21 BL=4096+54:B0=4096+177
22 SYSB0,"FEATURES",DV,96*256
23 SYSBL,"FRODO.ML",DV,41*256
24 SYSBL,"MUSIC",DV,106*256
25 Q=57:POKE44,Q:POKEQ*256,0
29 R$=CHR$(13)+"R[213]"+CHR$(13):Q$=CHR$(34)
30 PRINT"[144]LOAD"Q$"B.FRODO"Q$","DV""
32 FORX=1TO4:POKE630+X,ASC(MID$(R$,X)):NEXT:
36 POKE198,4
40 END
500 DV=PEEK(186):IFDV<8THENDV=8
505 PRINT"[147]":A$="                                     "
510 B$="[169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169]"
515 CLOSE2:OPEN2,DV,2,":FEATURES":GET#2,I$,I$:INPUT#2,I$:CLOSE2
520 POKE214,10:PRINT:POKE646,15:FORI=1TO10:PRINT""B$:NEXT
530 POKE214,12:PRINT:POKE646,11:FORI=1TO7:PRINTTAB(3)LEFT$(B$,33):NEXT
540 POKE214,11:PRINT:POKE646,3:FORI=1TO7:PRINTTAB(4)""LEFT$(B$,33):NEXT
550 POKE214,13:PRINT:POKE646,7:FORI=1TO3:PRINTTAB(6)""LEFT$(A$,29):NEXT
560 POKE214,14:PRINT:PRINTTAB(09)"[158][194]ACK TO E[204][207][193][196][211][212][193][210] "I$
580 RETURN
59999 END
60000 DV=PEEK(186):IFDV<8THENSTOP
60001 OPEN15,DV,15,"S0:HELLO CONNECT":CLOSE15:SAVE"0:HELLO CONNECT",DV